﻿Public Class Generico

    Dim _PEDIDO As String, _ID As Integer, _BINICIAL As Integer, _BFINAL As Integer
    Dim _BULTO As Integer, _PNETO As Decimal, _PBRUTO As Decimal, _CAJAS As String, _OBSERVA As String
    Dim _DETA As Integer, _ITEM As String, _CANT As Decimal
    Dim _SUC As String, _USU As Integer, _FEC As String, _HOR As String, _EST As String, _PASP As String
    Dim _CLI As String, _DIS As String, _ZON As String, _LAR As Integer, _PEST As String, _VOL As String
    Dim _ORD As String

    Sub New()

    End Sub

    Sub New(ped As String, id As Integer, bini As Integer, bfin As Integer, bult As Integer, pnet As Decimal, pbrut As Decimal, cajas As String, obs As String)
        Me._PEDIDO = ped
        Me._ID = id
        Me._BINICIAL = bini
        Me._BFINAL = bfin
        Me._BULTO = bult
        Me._PNETO = pnet
        Me._PBRUTO = pbrut
        Me._CAJAS = cajas
        Me._OBSERVA = obs
    End Sub

    Sub New(ped As String, id As Integer, det As Integer, item As String, cant As Decimal, codSuc As String, codUsu As Integer, fecha As String, hora As String, estPro As String, pasPro As String)
        Me._PEDIDO = ped
        Me._ID = id
        Me._DETA = det
        Me._ITEM = item
        Me._CANT = cant
        Me._SUC = codSuc
        Me._USU = codUsu
        Me._FEC = fecha
        Me._HOR = hora
        Me._EST = estPro
        Me._PASP = pasPro
    End Sub

    Sub New(ped As String, cli As String, dis As String, est As String, zon As String, cantB As Integer, lar As Integer, pest As String, vol As String, ord As String)
        Me._PEDIDO = ped
        Me._CLI = cli
        Me._DIS = dis
        Me._EST = est
        Me._ZON = zon
        Me._BULTO = cantB
        Me._LAR = lar
        Me._PEST = pest
        Me._VOL = vol
        Me._ORD = ord
    End Sub

    Public Property DOCTO() As String
        Get
            Return _PEDIDO
        End Get
        Set(value As String)
            _PEDIDO = value
        End Set
    End Property

    Public Property GEN_Orden() As String
        Get
            Return _ORD
        End Get
        Set(value As String)
            _ORD = value
        End Set
    End Property

    Public Property CLI_Codigo() As String
        Get
            Return _CLI
        End Get
        Set(value As String)
            _CLI = value
        End Set
    End Property

    Public Property DIS_Codigo() As String
        Get
            Return _DIS
        End Get
        Set(value As String)
            _DIS = value
        End Set
    End Property

    Public Property GEN_Zona() As String
        Get
            Return _ZON
        End Get
        Set(value As String)
            _ZON = value
        End Set
    End Property

    Public Property GEN_Largo() As Integer
        Get
            Return _LAR
        End Get
        Set(value As Integer)
            _LAR = value
        End Set
    End Property

    Public Property GEN_PESTotal() As String
        Get
            Return _PEST
        End Get
        Set(value As String)
            _PEST = value
        End Set
    End Property

    Public Property GEN_Volumen() As String
        Get
            Return _VOL
        End Get
        Set(value As String)
            _VOL = value
        End Set
    End Property

    Public Property ID() As Integer
        Get
            Return _ID
        End Get
        Set(value As Integer)
            _ID = value
        End Set
    End Property

    Public Property DETALLE() As Integer
        Get
            Return _DETA
        End Get
        Set(value As Integer)
            _DETA = value
        End Set
    End Property

    Public Property BINICIAL() As Integer
        Get
            Return _BINICIAL
        End Get
        Set(value As Integer)
            _BINICIAL = value
        End Set
    End Property

    Public Property BFINAL() As Integer
        Get
            Return _BFINAL
        End Get
        Set(value As Integer)
            _BFINAL = value
        End Set
    End Property

    Public Property BULTOS() As Integer
        Get
            Return _BULTO
        End Get
        Set(value As Integer)
            _BULTO = value
        End Set
    End Property

    Public Property PNETO() As Decimal
        Get
            Return _PNETO
        End Get
        Set(value As Decimal)
            _PNETO = value
        End Set
    End Property

    Public Property PBRUTO() As Decimal
        Get
            Return _PBRUTO
        End Get
        Set(value As Decimal)
            _PBRUTO = value
        End Set
    End Property

    Public Property CAJAS() As String
        Get
            Return _CAJAS
        End Get
        Set(value As String)
            _CAJAS = value
        End Set
    End Property

    Public Property OBSERVA() As String
        Get
            Return _OBSERVA
        End Get
        Set(value As String)
            _OBSERVA = value
        End Set
    End Property

    Public Property CODSUC() As String
        Get
            Return _SUC
        End Get
        Set(value As String)
            _SUC = value
        End Set
    End Property

    Public Property CODUSU() As Integer
        Get
            Return _USU
        End Get
        Set(value As Integer)
            _USU = value
        End Set
    End Property

    Public Property FCHPRO() As String
        Get
            Return _FEC
        End Get
        Set(value As String)
            _FEC = value
        End Set
    End Property

    Public Property HORPRO() As String
        Get
            Return _HOR
        End Get
        Set(value As String)
            _HOR = value
        End Set
    End Property

    Public Property ITEM() As String
        Get
            Return _ITEM
        End Get
        Set(value As String)
            _ITEM = value
        End Set
    End Property

    Public Property CANTIDAD() As Decimal
        Get
            Return _CANT
        End Get
        Set(value As Decimal)
            _CANT = value
        End Set
    End Property

    Public Property ESTPRO() As String
        Get
            Return _EST
        End Get
        Set(value As String)
            _EST = value
        End Set
    End Property

    Public Property PASPRO() As String
        Get
            Return _PASP
        End Get
        Set(value As String)
            _PASP = value
        End Set
    End Property

End Class
